home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Franz PD
/
Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).zip
/
Franz PD Disk #269 (1993)(Rhein-Sieg-Soft)(Disk 1 of 2).adf
/
Wortspiele
/
Sakra!V1.0
/
Sakra!V1.amosSourceCode
< prev
next >
Wrap
AMOS Source Code
|
1993-10-11
|
4KB
|
234 lines
Screen Open 0,640,265,16,Hires
Colour 1,$0
Dir$="Words/"
Gosub LOARD
WRONG=1
OUTOF=1
RIGHT=1
HUT=1
MUT=1
NUTTE=1
Double Buffer
Autoback 1
TP:
GT=1
VT=2
Print At(0,0);"Try No.:"
Print At(70,0);"Lost Time:"
Gosub TIMEOUT
Gosub FALSCH
Gosub RRICHTIG
Gosub LORD
T$=Upper$(T$)
Timer=0
OPA=1
For II=1 To 5
AA$=Mid$(T$,1,1)
BA$=Mid$(T$,2,1)
CA$=Mid$(T$,3,1)
DA$=Mid$(T$,4,1)
EA$=Mid$(T$,5,1)
Next II
Rem Paste Bob 200,0,29
Paste Bob 215,0,29
Paste Bob 250,0,11
Paste Bob 285,0,21
Paste Bob 320,0,28
Paste Bob 355,0,11
Paste Bob 390,0,39
Paste Bob 235,35,32
Paste Bob 270,35,2
Paste Bob 315,35,40
Paste Bob 340,35,1
NEU:
T=Rnd(4)+1
S=Rnd(4)+1
If T=S Then Goto NEU
G=0
Print At(37,G+11);"_____"
If T=1 Then Print At(37,G+11);AA$
If T=2 Then Print At(38,G+11);BA$
If T=3 Then Print At(39,G+11);CA$
If T=4 Then Print At(40,G+11);DA$
If T=5 Then Print At(41,G+11);EA$
If S=1 Then Print At(37,G+11);AA$
If S=2 Then Print At(38,G+11);BA$
If S=3 Then Print At(39,G+11);CA$
If S=4 Then Print At(40,G+11);DA$
If S=5 Then Print At(41,G+11);EA$
Curs Off
Change Mouse 2
Reserve Zone 30
Get Sprite Palette
Flash Off
Colour 1,$0
NR=11
B=1
X=0
Paste Bob 0,200,NR
Set Zone B,0,200 To X+35,235
For I=1 To 12
X=X+35
NR=NR+1
B=B+1
Paste Bob X,200,NR
Set Zone B,0,200 To X+35,235
Next I
X=0
NR=NR+1
B=B+1
Paste Bob 0,235,NR
Set Zone B,0,235 To X+35,270
For I=1 To 12
X=X+35
NR=NR+1
B=B+1
Paste Bob X,235,NR
Set Zone B,0,235 To X+35,270
Next I
X=X+70
P=X
Paste Bob X,200,27
X=X+35
Paste Bob X,200,31
X=X+35
Paste Bob X,200,19
X=X+35
Paste Bob X,200,30
Set Zone B+1,P,200 To X+35,235
P=P+35
Paste Bob X-35*2,235,24
Paste Bob X-35,235,15
Paste Bob X,235,33
Set Zone B+2,P,235 To X+35,270
Limit Mouse 135,249 To 440,300
L=35*6
M=35*3
TERROR:
G=0
For G=1 To 5
Locate 0,10
Bob 0,15,10,G+1
Print At(0,12);" "
NEENEE:
J=0
For R=1 To 5
J=J+1
Do
GT=Timer/60
VT=Timer/600
If GT>9 Then Timer=0 : OPA=OPA+1
If OPA>10 Then Bob 1,565,10,1 : Bob 2,600,10,1 : Goto ZEIT
Bob 1,565,10,VT+OPA
Bob 2,600,10,GT+1
C=Mouse Click
If C<>0
V=Mouse Zone : Goto OUT
End If
Loop
OUT:
A=0
B=64
For I=1 To 26
A=A+1
B=B+1
If V=A Then W$=Chr$(B) : Goto OUT2
Next I
If V=27 Then Stop
If V=28 Then Print At(37,22);" " : Goto NEENEE
OUT2:
If J=1 Then Print At(37,22);" "
If J=1 Then A$=W$ : Q=37
If J=2 Then B$=W$ : Q=38
If J=3 Then C$=W$ : Q=39
If J=4 Then D$=W$ : Q=40
If J=5 Then E$=W$ : Q=41
Print At(Q,22);W$
Next R
Print At(37,G+13);"_____"
If A$=AA$ Then Print At(37,G+13);AA$
If B$=BA$ Then Print At(38,G+13);BA$
If C$=CA$ Then Print At(39,G+13);CA$
If D$=DA$ Then Print At(40,G+13);DA$
If E$=EA$ Then Print At(41,G+13);EA$
If T$=(A$+B$+C$+D$+E$) Then Goto RICHTIG
Next G
Goto TRIES
TRIES:
Print At(50,15);" Out of tries!"
Print At(50,16);"the correct answere was"
Print At(50,17);" ";T$;" "
Print At(50,18);" Now press any key ..."
Wait Key
Print At(50,15);" "
Print At(50,16);" "
Print At(50,17);" "
Print At(50,18);" "
WRONG=WRONG+1
Goto LOOM
LOOM:
Reserve Zone
For G=1 To 5
Print At(37,G+13);" "
Next G
Print At(37,22);" "
Goto TP
ZEIT:
Print At(50,15);" Out of time!!"
Print At(50,16);"the correct answere was"
Print At(50,17);" ";T$;" "
Print At(50,18);" Now press any key ..."
Wait Key
Print At(50,15);" "
Print At(50,16);" "
Print At(50,17);" "
Print At(50,18);" "
OUTOF=OUTOF+1
Goto LOOM
RICHTIG:
Print At(50,15);" Yo, that`s it!"
Print At(50,16);"So get ready for the"
Print At(50,17);" next word ... "
Print At(50,18);" Now press any key ..."
Wait Key
Print At(50,15);" "
Print At(50,16);" "
Print At(50,17);" "
Print At(50,18);" "
RIGHT=RIGHT+1
Goto LOOM
TIMEOUT:
Print At(71,8);"Timeouts:"
If OUTOF>10 Then HUT=HUT+1 : OUTOF=1
If HUT=10 Then HUT=0
Bob 4,565,73,OUTOF/11+HUT
Bob 5,600,73,OUTOF
Return
FALSCH:
Print At(0,8);"Incorrect:"
If WRONG>10 Then MUT=MUT+1 : WRONG=1
If MUT=10 Then MUT=0
Bob 6,0,73,WRONG/11+MUT
Bob 7,35,73,WRONG
Return
RRICHTIG:
Print At(0,14);"Correct:"
If RIGHT>10 Then NUTTE=NUTTE+1 : RIGHT=1
If NUTTE=10 Then NUTTE=0
Bob 8,0,120,RIGHT/11+NUTTE
Bob 9,35,120,RIGHT
Return
LOARD:
Open In 1,"flag"
Input #1,NUMMERN
Close 1
Return
LORD:
Randomize Timer
NUMMERN=NUMMERN-1
WAS=Rnd(NUMMERN)+1
ST$=Str$(WAS)
Open In 1,ST$
Input #1,T$
Close 1
Return